NY Times US States COVID-19 Analysis

NY Times US States Data Analysis

• GitHub: https://github.com/nytimes/covid-19-data.git

shutdown <- read_ods("../COVID-19-uscovid19.org/us_shutdown.ods")

## Parsed with column specification:
## cols(
##   State = col_character(),
##   Governor = col_character(),
##   Party = col_character(),
##   Shutdown = col_character()
## )

shutdown$Shutdown <-lubridate::mdy(shutdown$Shutdown)
shutdown$Delay <- shutdown$Shutdown - as.Date("2020-01-21")

sd <- shutdown %>% ggplot() + geom_col(aes(x=Delay,y=reorder(State,Delay))) +
  labs(title="Elasped Days from First Confirmed Case(WA)",
       x="Delayed in Days",y="US States(and DC",
       caption ="(Shutdown Dates = https://www.nbcnews.com)")
ggplotly(sd)

## Don't know how to automatically pick scale for object of type difftime. Defaulting to continuous.

## Warning: Removed 5 rows containing missing values (position_stack).

Summary of Cases,Deaths and Death Rate by Date

Summary of Cases and Deaths by State

Summary of Ohio Deaths and Cases